Shareware Super Platinum 8

home *** CD-ROM | disk | FTP | other *** search

/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / DATABASE / OBJ1_2.ZIP;1 / SIVAR.ASM < prev

Wrap

Assembly Source File | 1992-06-26 | 13.6 KB | 762 lines

;…ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕª ;∫ o:Clip ∫ ;∫ An Object Oriented Extension to Clipper 5.01 ∫ ;∫ (c) 1991 Peter M. Freese, CyberSoft ∫ ;»ÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕÕº ; ;Version 1.01x - 06/25/92 ;Modified by JHK,JHK-Software,Piestany ; IDEAL MODEL LARGE EXTRN __lbase:WORD,__eval:WORD EXTRN __catput:FAR CODESEG PROC __SIVAR001 FAR PUBLIC __SIVAR001 mov ax,001 jmp __SIVAR ENDP __SIVAR001 PROC __SIVAR002 FAR PUBLIC __SIVAR002 mov ax,002 jmp __SIVAR ENDP __SIVAR002 PROC __SIVAR003 FAR PUBLIC __SIVAR003 mov ax,003 jmp __SIVAR ENDP __SIVAR003 PROC __SIVAR004 FAR PUBLIC __SIVAR004 mov ax,004 jmp __SIVAR ENDP __SIVAR004 PROC __SIVAR005 FAR PUBLIC __SIVAR005 mov ax,005 jmp __SIVAR ENDP __SIVAR005 PROC __SIVAR006 FAR PUBLIC __SIVAR006 mov ax,006 jmp __SIVAR ENDP __SIVAR006 PROC __SIVAR007 FAR PUBLIC __SIVAR007 mov ax,007 jmp __SIVAR ENDP __SIVAR007 PROC __SIVAR008 FAR PUBLIC __SIVAR008 mov ax,008 jmp __SIVAR ENDP __SIVAR008 PROC __SIVAR009 FAR PUBLIC __SIVAR009 mov ax,009 jmp __SIVAR ENDP __SIVAR009 PROC __SIVAR010 FAR PUBLIC __SIVAR010 mov ax,010 jmp __SIVAR ENDP __SIVAR010 PROC __SIVAR011 FAR PUBLIC __SIVAR011 mov ax,011 jmp __SIVAR ENDP __SIVAR011 PROC __SIVAR012 FAR PUBLIC __SIVAR012 mov ax,012 jmp __SIVAR ENDP __SIVAR012 PROC __SIVAR013 FAR PUBLIC __SIVAR013 mov ax,013 jmp __SIVAR ENDP __SIVAR013 PROC __SIVAR014 FAR PUBLIC __SIVAR014 mov ax,014 jmp __SIVAR ENDP __SIVAR014 PROC __SIVAR015 FAR PUBLIC __SIVAR015 mov ax,015 jmp __SIVAR ENDP __SIVAR015 PROC __SIVAR016 FAR PUBLIC __SIVAR016 mov ax,016 jmp __SIVAR ENDP __SIVAR016 PROC __SIVAR017 FAR PUBLIC __SIVAR017 mov ax,017 jmp __SIVAR ENDP __SIVAR017 PROC __SIVAR018 FAR PUBLIC __SIVAR018 mov ax,018 jmp __SIVAR ENDP __SIVAR018 PROC __SIVAR019 FAR PUBLIC __SIVAR019 mov ax,019 jmp __SIVAR ENDP __SIVAR019 PROC __SIVAR020 FAR PUBLIC __SIVAR020 mov ax,020 jmp __SIVAR ENDP __SIVAR020 PROC __SIVAR021 FAR PUBLIC __SIVAR021 mov ax,021 jmp __SIVAR ENDP __SIVAR021 PROC __SIVAR022 FAR PUBLIC __SIVAR022 mov ax,022 jmp __SIVAR ENDP __SIVAR022 PROC __SIVAR023 FAR PUBLIC __SIVAR023 mov ax,023 jmp __SIVAR ENDP __SIVAR023 PROC __SIVAR024 FAR PUBLIC __SIVAR024 mov ax,024 jmp __SIVAR ENDP __SIVAR024 PROC __SIVAR025 FAR PUBLIC __SIVAR025 mov ax,025 jmp __SIVAR ENDP __SIVAR025 PROC __SIVAR026 FAR PUBLIC __SIVAR026 mov ax,026 jmp __SIVAR ENDP __SIVAR026 PROC __SIVAR027 FAR PUBLIC __SIVAR027 mov ax,027 jmp __SIVAR ENDP __SIVAR027 PROC __SIVAR028 FAR PUBLIC __SIVAR028 mov ax,028 jmp __SIVAR ENDP __SIVAR028 PROC __SIVAR029 FAR PUBLIC __SIVAR029 mov ax,029 jmp __SIVAR ENDP __SIVAR029 PROC __SIVAR030 FAR PUBLIC __SIVAR030 mov ax,030 jmp __SIVAR ENDP __SIVAR030 PROC __SIVAR031 FAR PUBLIC __SIVAR031 mov ax,031 jmp __SIVAR ENDP __SIVAR031 PROC __SIVAR032 FAR PUBLIC __SIVAR032 mov ax,032 jmp __SIVAR ENDP __SIVAR032 PROC __SIVAR033 FAR PUBLIC __SIVAR033 mov ax,033 jmp __SIVAR ENDP __SIVAR033 PROC __SIVAR034 FAR PUBLIC __SIVAR034 mov ax,034 jmp __SIVAR ENDP __SIVAR034 PROC __SIVAR035 FAR PUBLIC __SIVAR035 mov ax,035 jmp __SIVAR ENDP __SIVAR035 PROC __SIVAR036 FAR PUBLIC __SIVAR036 mov ax,036 jmp __SIVAR ENDP __SIVAR036 PROC __SIVAR037 FAR PUBLIC __SIVAR037 mov ax,037 jmp __SIVAR ENDP __SIVAR037 PROC __SIVAR038 FAR PUBLIC __SIVAR038 mov ax,038 jmp __SIVAR ENDP __SIVAR038 PROC __SIVAR039 FAR PUBLIC __SIVAR039 mov ax,039 jmp __SIVAR ENDP __SIVAR039 PROC __SIVAR040 FAR PUBLIC __SIVAR040 mov ax,040 jmp __SIVAR ENDP __SIVAR040 PROC __SIVAR041 FAR PUBLIC __SIVAR041 mov ax,041 jmp __SIVAR ENDP __SIVAR041 PROC __SIVAR042 FAR PUBLIC __SIVAR042 mov ax,042 jmp __SIVAR ENDP __SIVAR042 PROC __SIVAR043 FAR PUBLIC __SIVAR043 mov ax,043 jmp __SIVAR ENDP __SIVAR043 PROC __SIVAR044 FAR PUBLIC __SIVAR044 mov ax,044 jmp __SIVAR ENDP __SIVAR044 PROC __SIVAR045 FAR PUBLIC __SIVAR045 mov ax,045 jmp __SIVAR ENDP __SIVAR045 PROC __SIVAR046 FAR PUBLIC __SIVAR046 mov ax,046 jmp __SIVAR ENDP __SIVAR046 PROC __SIVAR047 FAR PUBLIC __SIVAR047 mov ax,047 jmp __SIVAR ENDP __SIVAR047 PROC __SIVAR048 FAR PUBLIC __SIVAR048 mov ax,048 jmp __SIVAR ENDP __SIVAR048 PROC __SIVAR049 FAR PUBLIC __SIVAR049 mov ax,049 jmp __SIVAR ENDP __SIVAR049 PROC __SIVAR050 FAR PUBLIC __SIVAR050 mov ax,050 jmp __SIVAR ENDP __SIVAR050 PROC __SIVAR051 FAR PUBLIC __SIVAR051 mov ax,051 jmp __SIVAR ENDP __SIVAR051 PROC __SIVAR052 FAR PUBLIC __SIVAR052 mov ax,052 jmp __SIVAR ENDP __SIVAR052 PROC __SIVAR053 FAR PUBLIC __SIVAR053 mov ax,053 jmp __SIVAR ENDP __SIVAR053 PROC __SIVAR054 FAR PUBLIC __SIVAR054 mov ax,054 jmp __SIVAR ENDP __SIVAR054 PROC __SIVAR055 FAR PUBLIC __SIVAR055 mov ax,055 jmp __SIVAR ENDP __SIVAR055 PROC __SIVAR056 FAR PUBLIC __SIVAR056 mov ax,056 jmp __SIVAR ENDP __SIVAR056 PROC __SIVAR057 FAR PUBLIC __SIVAR057 mov ax,057 jmp __SIVAR ENDP __SIVAR057 PROC __SIVAR058 FAR PUBLIC __SIVAR058 mov ax,058 jmp __SIVAR ENDP __SIVAR058 PROC __SIVAR059 FAR PUBLIC __SIVAR059 mov ax,059 jmp __SIVAR ENDP __SIVAR059 PROC __SIVAR060 FAR PUBLIC __SIVAR060 mov ax,060 jmp __SIVAR ENDP __SIVAR060 PROC __SIVAR061 FAR PUBLIC __SIVAR061 mov ax,061 jmp __SIVAR ENDP __SIVAR061 PROC __SIVAR062 FAR PUBLIC __SIVAR062 mov ax,062 jmp __SIVAR ENDP __SIVAR062 PROC __SIVAR063 FAR PUBLIC __SIVAR063 mov ax,063 jmp __SIVAR ENDP __SIVAR063 PROC __SIVAR064 FAR PUBLIC __SIVAR064 mov ax,064 jmp __SIVAR ENDP __SIVAR064 PROC __SIVAR065 FAR PUBLIC __SIVAR065 mov ax,065 jmp __SIVAR ENDP __SIVAR065 PROC __SIVAR066 FAR PUBLIC __SIVAR066 mov ax,066 jmp __SIVAR ENDP __SIVAR066 PROC __SIVAR067 FAR PUBLIC __SIVAR067 mov ax,067 jmp __SIVAR ENDP __SIVAR067 PROC __SIVAR068 FAR PUBLIC __SIVAR068 mov ax,068 jmp __SIVAR ENDP __SIVAR068 PROC __SIVAR069 FAR PUBLIC __SIVAR069 mov ax,069 jmp __SIVAR ENDP __SIVAR069 PROC __SIVAR070 FAR PUBLIC __SIVAR070 mov ax,070 jmp __SIVAR ENDP __SIVAR070 PROC __SIVAR071 FAR PUBLIC __SIVAR071 mov ax,071 jmp __SIVAR ENDP __SIVAR071 PROC __SIVAR072 FAR PUBLIC __SIVAR072 mov ax,072 jmp __SIVAR ENDP __SIVAR072 PROC __SIVAR073 FAR PUBLIC __SIVAR073 mov ax,073 jmp __SIVAR ENDP __SIVAR073 PROC __SIVAR074 FAR PUBLIC __SIVAR074 mov ax,074 jmp __SIVAR ENDP __SIVAR074 PROC __SIVAR075 FAR PUBLIC __SIVAR075 mov ax,075 jmp __SIVAR ENDP __SIVAR075 PROC __SIVAR076 FAR PUBLIC __SIVAR076 mov ax,076 jmp __SIVAR ENDP __SIVAR076 PROC __SIVAR077 FAR PUBLIC __SIVAR077 mov ax,077 jmp __SIVAR ENDP __SIVAR077 PROC __SIVAR078 FAR PUBLIC __SIVAR078 mov ax,078 jmp __SIVAR ENDP __SIVAR078 PROC __SIVAR079 FAR PUBLIC __SIVAR079 mov ax,079 jmp __SIVAR ENDP __SIVAR079 PROC __SIVAR080 FAR PUBLIC __SIVAR080 mov ax,080 jmp __SIVAR ENDP __SIVAR080 PROC __SIVAR081 FAR PUBLIC __SIVAR081 mov ax,081 jmp __SIVAR ENDP __SIVAR081 PROC __SIVAR082 FAR PUBLIC __SIVAR082 mov ax,082 jmp __SIVAR ENDP __SIVAR082 PROC __SIVAR083 FAR PUBLIC __SIVAR083 mov ax,083 jmp __SIVAR ENDP __SIVAR083 PROC __SIVAR084 FAR PUBLIC __SIVAR084 mov ax,084 jmp __SIVAR ENDP __SIVAR084 PROC __SIVAR085 FAR PUBLIC __SIVAR085 mov ax,085 jmp __SIVAR ENDP __SIVAR085 PROC __SIVAR086 FAR PUBLIC __SIVAR086 mov ax,086 jmp __SIVAR ENDP __SIVAR086 PROC __SIVAR087 FAR PUBLIC __SIVAR087 mov ax,087 jmp __SIVAR ENDP __SIVAR087 PROC __SIVAR088 FAR PUBLIC __SIVAR088 mov ax,088 jmp __SIVAR ENDP __SIVAR088 PROC __SIVAR089 FAR PUBLIC __SIVAR089 mov ax,089 jmp __SIVAR ENDP __SIVAR089 PROC __SIVAR090 FAR PUBLIC __SIVAR090 mov ax,090 jmp __SIVAR ENDP __SIVAR090 PROC __SIVAR091 FAR PUBLIC __SIVAR091 mov ax,091 jmp __SIVAR ENDP __SIVAR091 PROC __SIVAR092 FAR PUBLIC __SIVAR092 mov ax,092 jmp __SIVAR ENDP __SIVAR092 PROC __SIVAR093 FAR PUBLIC __SIVAR093 mov ax,093 jmp __SIVAR ENDP __SIVAR093 PROC __SIVAR094 FAR PUBLIC __SIVAR094 mov ax,094 jmp __SIVAR ENDP __SIVAR094 PROC __SIVAR095 FAR PUBLIC __SIVAR095 mov ax,095 jmp __SIVAR ENDP __SIVAR095 PROC __SIVAR096 FAR PUBLIC __SIVAR096 mov ax,096 jmp __SIVAR ENDP __SIVAR096 PROC __SIVAR097 FAR PUBLIC __SIVAR097 mov ax,097 jmp __SIVAR ENDP __SIVAR097 PROC __SIVAR098 FAR PUBLIC __SIVAR098 mov ax,098 jmp __SIVAR ENDP __SIVAR098 PROC __SIVAR099 FAR PUBLIC __SIVAR099 mov ax,099 jmp __SIVAR ENDP __SIVAR099 PROC __SIVAR100 FAR PUBLIC __SIVAR100 mov ax,100 jmp __SIVAR ENDP __SIVAR100 PROC __SIVAR101 FAR PUBLIC __SIVAR101 mov ax,101 jmp __SIVAR ENDP __SIVAR101 PROC __SIVAR102 FAR PUBLIC __SIVAR102 mov ax,102 jmp __SIVAR ENDP __SIVAR102 PROC __SIVAR103 FAR PUBLIC __SIVAR103 mov ax,103 jmp __SIVAR ENDP __SIVAR103 PROC __SIVAR104 FAR PUBLIC __SIVAR104 mov ax,104 jmp __SIVAR ENDP __SIVAR104 PROC __SIVAR105 FAR PUBLIC __SIVAR105 mov ax,105 jmp __SIVAR ENDP __SIVAR105 PROC __SIVAR106 FAR PUBLIC __SIVAR106 mov ax,106 jmp __SIVAR ENDP __SIVAR106 PROC __SIVAR107 FAR PUBLIC __SIVAR107 mov ax,107 jmp __SIVAR ENDP __SIVAR107 PROC __SIVAR108 FAR PUBLIC __SIVAR108 mov ax,108 jmp __SIVAR ENDP __SIVAR108 PROC __SIVAR109 FAR PUBLIC __SIVAR109 mov ax,109 jmp __SIVAR ENDP __SIVAR109 PROC __SIVAR110 FAR PUBLIC __SIVAR110 mov ax,110 jmp __SIVAR ENDP __SIVAR110 PROC __SIVAR111 FAR PUBLIC __SIVAR111 mov ax,111 jmp __SIVAR ENDP __SIVAR111 PROC __SIVAR112 FAR PUBLIC __SIVAR112 mov ax,112 jmp __SIVAR ENDP __SIVAR112 PROC __SIVAR113 FAR PUBLIC __SIVAR113 mov ax,113 jmp __SIVAR ENDP __SIVAR113 PROC __SIVAR114 FAR PUBLIC __SIVAR114 mov ax,114 jmp __SIVAR ENDP __SIVAR114 PROC __SIVAR115 FAR PUBLIC __SIVAR115 mov ax,115 jmp __SIVAR ENDP __SIVAR115 PROC __SIVAR116 FAR PUBLIC __SIVAR116 mov ax,116 jmp __SIVAR ENDP __SIVAR116 PROC __SIVAR117 FAR PUBLIC __SIVAR117 mov ax,117 jmp __SIVAR ENDP __SIVAR117 PROC __SIVAR118 FAR PUBLIC __SIVAR118 mov ax,118 jmp __SIVAR ENDP __SIVAR118 PROC __SIVAR119 FAR PUBLIC __SIVAR119 mov ax,119 jmp __SIVAR ENDP __SIVAR119 PROC __SIVAR120 FAR PUBLIC __SIVAR120 mov ax,120 jmp __SIVAR ENDP __SIVAR120 PROC __SIVAR FAR push di push si mov bx,[__lbase] add bx,2*14 push bx ; parameter 1 is value to store push ax ; object variable index sub bx,14 push bx ; object base call far __catput add sp,6 mov di,[__eval] mov si,[__lbase] add si,2*14 push ds pop es mov cx,7 repnz movsw ; copy entire var structure pop si pop di ret ENDP __SIVAR END